helpButton "RIGHT ARROW: Advances to the next article","Up"
else
visual effect scroll left
go next cd of this bkgnd
end if
end mouseUp
-- part 19 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=67 top=316 right=342 bottom=102
-- title width / last selected line: 0
-- icon id / first selected line: 9301 / 9301
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Backward
----- HyperTalk script -----
on mouseUp
if the optionKey is down then
set cursor to Signal
visual effect dissolve very fast
go first cd of this bkgnd
else if the shiftKey is down then
helpButton "LEFT ARROW: Goes back to the previous article","Up"
else
visual effect scroll right
go to prev cd of this bkgnd
end if
end mouseUp
-- part 33 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=17 top=212 right=244 bottom=51
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Search
----- HyperTalk script -----
on mouseUp
global toBeFound,whereToSearch,howToSearch,fromMenu
if the shiftKey is down then
helpButton "FIND: Searches for the specified text in the specified field"
else
hide msg
put "All" into whereToSearch
ask "Enter text to find:" with toBeFound
set cursor to RegFind
if it is not empty then
put it into toBeFound
put the short name of bkgnd button id 79 into whereToSearch
if word 2 of toBeFound is not empty then
put "whole" into howToSearch
else
put empty into howToSearch
end if
FindIt
end if
put toBeFound into bkgnd field id 80
end if
end mouseUp
-- part 40 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=26 top=149 right=170 bottom=47
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Make Report
----- HyperTalk script -----
on mouseUp
if the shiftKey is down then
helpButton "TO DISK: Writes the information in the current card to a disk file"
else
global fn,var,JA,CommIn
if var is empty then
set cursor to 4
put "List oΓÇÖ Refs" into shortFile
put NewFileName( "Save file as:" , (shortFile) ) into fn
if fn is empty or char 1 of fn is "ΓÇö" then
exit mouseUp
end if
if fn is not empty then
open file fn
put "full" into var
answer return & "Do you want the ΓÇÿCommentsΓÇÖ section included or excluded?" with "Include" or "Exclude"
put it into CommIn
EnableMenu 1, 10, true
end if
end if
if var is not empty and fn is not empty then PutToDisk
end if
end mouseUp
on PutToDisk
global fn,var,JA,CommIn
set cursor to busy
get the number of words of line 1 of field author
put it into x
repeat with j = 1 to x-1
write word(j) of line 1 of field author to file fn
write " " to file fn
end repeat
if last char of word(x) of line 1 of field author is "." or last char of word(x) of line 1 of field author is "?" or last char of word(x) of line 1 of field author is "!" then
write word(x) of line 1 of field author & " " to file fn
else
write word(x) of line 1 of field author & ". " to file fn
end if
set cursor to busy
get the number of words of line 1 of field title
put it into x
repeat with j = 1 to x-1
write word(j) of line 1 of field title to file fn
write " " to file fn
end repeat
if last char of word(x) of line 1 of field title is "." or last char of word(x) of line 1 of field title is "?" or last char of word(x) of line 1 of field title is "!" then
write word(x) of line 1 of field title & " " to file fn
else
write word(x) of line 1 of field title & ". " to file fn
end if
set cursor to busy
get line 1 of field source
put it into JA
ConvertJournal
get the number of words of JA
put it into x
repeat with j = 1 to x-1
write word(j) of JA to file fn
write " " to file fn
end repeat
if last char of word(x) of JA is not "." and last char of word(x) of JA is not "?" and last char of word(x) of JA is not "!" then
write word(x) of JA & "." to file fn
else
write word(x) of JA to file fn
end if
set cursor to busy
if CommIn is "Include" then
write " " to file fn
else
write return to file fn
exit PutToDisk
end if
set cursor to busy
if CommIn is "Include" then
get line 1 of field comments
if it is empty then
write "No comments." & return to file fn
else
write "Comments: " & it to file fn
write return to file fn
end if
end if
end PutToDisk
-- part 41 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=26 top=49 right=70 bottom=47
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help
----- HyperTalk script -----
on mouseUp
if the shiftKey is down then
helpButton "HELP: Displays the help card, which describes the other functions"
else
set cursor to "Help"
push cd
set lockScreen to true
global exempt
put "Yes" into exempt
go to cd "Help Card"
doDatDate
hide cd field "HoldingArea"
set lockScreen to false
end if
end mouseUp
-- part 44 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=74 top=264 right=316 bottom=421
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Keywords
----- HyperTalk script -----
on mouseUp
global toBeFound,whereToSearch,howToSearch
put "Keywords" into whereToSearch
hide msg
put msg into toBeFound
if word 2 of msg is not empty then
put "whole" into howToSearch
else
put empty into howToSearch
end if
QuickFind
end mouseUp
-- part 66 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=12 top=34 right=49 bottom=59
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: AuthorButton
----- HyperTalk script -----
on mouseUp
if the shiftKey is down then
helpButton "Example: ΓÇ£Smith, R. J., & Jones, C. B. Jr. (1978)ΓÇ¥"
else
set the name of bkgnd button id 79 to "Author"
end if
end mouseUp
-- part 67 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=16 top=71 right=86 bottom=54
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: TitleButton
----- HyperTalk script -----
on mouseUp
if the shiftKey is down then
helpButton "Example: ΓÇ£Forgetting and repressing: Is there a difference?ΓÇ¥"
else
set the name of bkgnd button id 79 to "Title"
end if
end mouseUp
-- part 68 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=15 top=125 right=140 bottom=58
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SourceButton
----- HyperTalk script -----
on mouseUp
if the shiftKey is down then
helpButton "Example: ΓÇ£JEP: LMC, 9, 432-445.ΓÇ¥"
else
set the name of bkgnd button id 79 to "Source"
end if
end mouseUp
-- part 69 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=2 top=179 right=194 bottom=71
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: CommentsButton
----- HyperTalk script -----
on mouseUp
if the shiftKey is down then
helpButton "This space is for any comments you have; there is no special format"
helpButton "FIND AGAIN: Searches for the next occurrence of the specified text","Up"
else
global beenThere,toBeFound,PriorCard,whereToSearch
set cursor to AgainFind
set lockScreen to true
if toBeFound is empty then
answer return & "You have not indicated anything to find." with "Ok"
EnableMenu 1, 3, false
exit mouseUp
end if
put the number of this cd into tempCardNum
put the name of this cd into tempPriorCard
go next cd of this bkgnd
put empty into bkgnd field id 80
type return
if the short name of this cd is "Help Card" then
go next cd
type return
end if
if the number of this cd is beenThere then
go to card tempCardNum
beep
set lockScreen to false
if whereToSearch is "All" then
answer return & "There are no more occurrences of ΓÇÿ" & toBeFound & "ΓÇÖ in any field." with "Ok"
else
answer return & "There are no more occurrences of ΓÇÿ" & toBeFound & "ΓÇÖ in the ΓÇÿ" & whereToSearch & "ΓÇÖ field." with "Ok"
end if
else
set lockScreen to false
put tempPriorCard into PriorCard
end if
set cursor to RegFind
put toBeFound into bkgnd field id 80
end if
end mouseUp
-- part 73 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=425 top=299 right=316 bottom=460
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Possession
----- HyperTalk script -----
on mouseDown
if the shiftKey is down then
helpButton "A ΓÇÿYesΓÇÖ indicates you have this reprint, a ΓÇÿNoΓÇÖ indicates you do not","Up"
else if the commandKey is down then
global toBeFound,whereToSearch,howToSearch
put "Possession" into whereToSearch
put bkgnd field id 73 into msg
set the name of bkgnd button id 79 to "Possession"
hide msg
put msg into toBeFound
put empty into howToSearch
QuickFind
else
global m_item
put the rect of bkgnd field id 73 into it
put item 1 of it +1 into left
put item 2 of it into top
put "0,?;0,No;0,Yes"into mem_def1
Put HPopUpMenu(mem_def1,top,left,3) into m_item
if m_item is "none" or m_item is empty or m_item is "error" then
exit mouseDown
else
put m_item into bkgnd field id 73
end if
end if
end mouseDown
-- part 75 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=464 top=299 right=316 bottom=508
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Status
----- HyperTalk script -----
on mouseDown
if the shiftKey is down then
helpButton "Indicates the current status of this article","Up"
else if the commandKey is down then
global toBeFound,whereToSearch,howToSearch
put "Status" into whereToSearch
put bkgnd field id 75 into msg
set the name of bkgnd button id 79 to "Status"
hide msg
put msg into toBeFound
put empty into howToSearch
QuickFind
else
global m_item
put the rect of bkgnd field id 75 into it --left,top,right,bottom
put item 1 of it +1 into left
put item 2 of it into top --actually the right side
put "0,New;0,Get;0,Read;0, "into mem_def1
Put HPopUpMenu(mem_def1,top,left,4) into m_item
if m_item is "none" or m_item is empty or m_item is "error" then
exit mouseDown
else
put m_item into bkgnd field id 75
end if
end if
end mouseDown
-- part 79 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=425 top=319 right=338 bottom=508
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Author
----- HyperTalk script -----
on mouseDown
if the shiftKey is down then
helpButton "Indicates the current search field","Up"
else
global m_item
put the rect of bkgnd button id 79 into it --left,top,right,bottom
put item 1 of it +1 into left
put item 2 of it into top -- actually the right side
put "0,Possession;0,DateMade;0,Status;0,All;0,Title;" into mem_def1
put "0,Source;0,Keywords;0,Comments;0,Author"after mem_def1
Put HPopUpMenu(mem_def1,top,left,9) into m_item
if m_item is "none" or m_item is empty or m_item is "error" then
exit mouseDown
else
set the name of me to m_item
end if
end if
end mouseDown
-- part 80 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=166 top=319 right=338 bottom=421
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Thing
----- HyperTalk script -----
on mouseUp
global toBeFound,whereToSearch,howToSearch
put the short name of bkgnd button id 79 into whereToSearch
hide msg
put msg into toBeFound
if word 2 of msg is not empty then
put "whole" into howToSearch
else
put empty into howToSearch
end if
FindIt
end mouseUp
-- part 81 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=105 top=319 right=339 bottom=126
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: FindToo
----- HyperTalk script -----
on mouseUp
if the shiftKey is down then
helpButton "FIND: Searches for the text specified in the field to the right","Up"
else
set cursor to RegFind
global toBeFound,whereToSearch,howToSearch
put the short name of bkgnd button id 79 into whereToSearch
put bkgnd field id 80 into toBeFound
if toBeFound is empty then
answer return & "You have not indicated anything to find." with "Ok"
EnableMenu 1, 3, false
exit mouseUp
end if
if word 2 of bkgnd field id 80 is not empty then
put "whole" into howToSearch
else
put empty into howToSearch
end if
hide msg
put empty into bkgnd field id 80
FindIt
end if
end mouseUp
-- part 82 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=425 top=279 right=296 bottom=508
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: DateMade
----- HyperTalk script -----
on mouseUp
if the shiftKey is down then
helpButton "Indicates the date the card was made; 10/30/89 is the default date","Up"
else if the commandKey is down then
global toBeFound,whereToSearch,howToSearch
put "DateMade" into whereToSearch
hide msg
put msg into toBeFound
put empty into howToSearch
set the name of bkgnd button id 79 to "DateMade"
QuickFind
else if the optionKey is down then
get the short date
put it into bkgnd field id 82
end if
end mouseUp
-- part 83 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=26 top=96 right=119 bottom=46
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ClipBoardButton
----- HyperTalk script -----
on mouseUp
if the shiftKey is down then
helpButton "TO CLIPBOARD: Copies the current information to special clipboard"
else
global JA, CommIn
if CommIn is empty then
answer return & "Do you want the ΓÇÿCommentsΓÇÖ section included or excluded?" with "Include" or "Exclude"
put it into CommIn
EnableMenu 2, 2, true
end if
set cursor to busy
get the number of words of line 1 of field author
put it into x
put empty into temp
repeat with j = 1 to x-1
put word(j) of line 1 of field author after temp
put " " after temp
end repeat
if last char of word(x) of line 1 of field author is "." or last char of word(x) of line 1 of field author is "?" or last char of word(x) of line 1 of field author is "!" then
put word(x) of line 1 of field author & " " after temp
else
put word(x) of line 1 of field author & ". " after temp
end if
set cursor to busy
get the number of words of line 1 of field title
put it into x
repeat with j = 1 to x-1
put word(j) of line 1 of field title after temp
put " " after temp
end repeat
if last char of word(x) of line 1 of field title is "." or last char of word(x) of line 1 of field title is "?" or last char of word(x) of line 1 of field title is "!" then
put word(x) of line 1 of field title & " " after temp
else
put word(x) of line 1 of field title & ". " after temp
end if
set cursor to busy
get line 1 of field source
put it into JA
ConvertJournal
get the number of words of JA
put it into x
repeat with j = 1 to x-1
put word(j) of JA after temp
put " " after temp
end repeat
if last char of word(x) of JA is not "." and last char of word(x) of JA is not "?" and last char of word(x) of JA is not "!" then
put word(x) of JA & "." after temp
else
put word(x) of JA after temp
end if
set cursor to busy
if CommIn is "Include" then
put " " after temp
get line 1 of field comments
if it is empty then
put "No comments." & return after temp
else
put "Comments: " & it after temp
put return after temp
end if
else
put return after temp
end if
set cursor to busy
set lockScreen to true
push cd
go to cd "Help Card"
put temp after cd field "HoldingArea" of cd "Help Card"
type tab
doMenu "Copy Text"
pop cd
set lockScreen to false
set cursor to busy
end if
end mouseUp
-- part 85 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=20 top=0 right=28 bottom=483
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
-- part 87 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=3 top=4 right=19 bottom=18
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Exit
----- HyperTalk script -----
on mouseUp
if the shiftKey is down then
helpButton "EXIT: Quits HyperCard and returns to finder"
else
answer return & " About to exit" & return &" ΓÇÿReference TrackerΓÇÖ" with "Cancel" or "Home" or "Proceed"
if it is "Proceed" then
set cursor to 4
visual effect barn door close
doMenu "Quit HyperCard"
else if it is "Home" then
go to Home
end if
end if
end mouseUp
-- part 88 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=424 top=264 right=277 bottom=509
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Arrows Move Cursor
----- HyperTalk script -----
on mouseUp
if the shiftKey is down then
helpButton "TEXT ARROWS: lets arrow keys move cursor in fields when selected","Up"
